home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1988 November & December / rerun-1988-11-12.d64 / score generator (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  482b  |  19 lines
  1. 10 rem --> run this score file generator
  2. 20 rem --> just once on same disk as
  3. 30 rem --> game program.
  4. 40 i=32768
  5. 50 read a:if a=256 then 70
  6. 60 poke i,a:i=i+1:goto 50
  7. 70 sys 57812".scores",8,1
  8. 80 poke 193,0:poke 194,128
  9. 90 poke 174,50:poke 175,128
  10. 100 sys 62957
  11. 110 print "save complete. check drive for errors"
  12. 120 data 74,86,82,124,21,74,86,82
  13. 130 data 20,20,74,86,82,16,19,74
  14. 140 data 86,82,60,15,74,86,82,20
  15. 150 data 10,74,86,82,208,7,74,86
  16. 160 data 82,148,7,74,86,82,14,6
  17. 170 data 74,86,82,158,2,74,86,82
  18. 180 data 48,2,256
  19.